home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Transactor
/
Transactor_06_1985_Transactor_Publishing.d64
/
read sprites
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
866b
|
52 lines
0 rem read sprites (aug 25/84) :
1 :
2 rem 0 statements, 2 functions
3 :
4 rem keyword characters: 10
5 :
6 rem keyword routine line ser #
7 rem f/xloc( xloc 3786 041
8 rem f/yloc( yloc 3812 042
9 :
10 rem u/chkspr (3664/037)
11 rem d/powers (3694/039)
12 :
13 rem this module also contains one
14 rem line from set sprites -- 3624
15 :
16 rem ================================
17 :
608 .asc "xloc[168]yloc[168]"
1608 .word xloc-1,yloc-1
3624 xs3 jmp $b248
3664 chkspr jsr $73
3666 chs1 jsr $b79e
3668 cpx #8
3670 bcs xs3
3672 rts
3674 ;
3694 powers .byte 1,2,4,8,16,32,64,128
3696 ;
3786 xloc jsr chs1
3788 jsr $aef7
3790 txa
3792 asl
3794 tay
3796 lda $d000,y
3798 tay
3800 lda powers,x
3802 and $d010
3804 beq xl1
3806 lda #1
3808 xl1 jmp $b391
3810 ;
3812 yloc jsr chs1
3814 jsr $aef7
3816 txa
3818 asl
3820 tay
3822 lda $d001,y
3824 tay
3826 jmp $b3a2
3828 ;